function f = esqueletizaImagem(nomeBase, tamanhoBase)
%REDIMENSIONA IMAGEM 
%   esqueletizaImagem(nomeBase, tamanhoBase)

    for k = 1:tamanhoBase
        nome = [nomeBase num2str(k) '.png'];
        imagem = imread(nome);
        esqueletizada = bwmorph(imagem, 'skel', Inf);
        imwrite(esqueletizada,['esqueletizada' num2str(k) '.png'],'PNG');
    end
    f=1;
    
end